home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / emacs16d.zip / BOOT.MIN < prev    next >
Text File  |  1992-08-01  |  4KB  |  152 lines
  1. #(ow,(
  2.  
  3. This is very much pre-release software which should NOT be inflicted
  4. on the general public.  It has no documentation, no copyright message,
  5. no "how to get it", etc.  If you didn't get it straight from me (Russell
  6. Nelson), then you should check back with me to see if I've updated it yet.
  7. My email address is nelson@crynwr.com
  8. My voice phone number is (315)268-1925.
  9. My FAX phone number is (315)268-9201.
  10.  
  11. Do you agree to try to contain the distribution of )##(lv,vn)( (y/n)?))
  12.  
  13. #(==,##(it,10000),y,,(
  14.     #(hl)
  15. ))
  16.  
  17. #(ow,(
  18.  
  19. ))
  20.  
  21. This file contains the MINT code that is used to create the .ED and .EDD
  22. files from the .MIN files.  Unlike most .MIN files, this one is simply
  23. loaded into a buffer, and the entire buffer is then executed as MINT
  24. code.
  25.  
  26. #(ow,(First, we'll define a few useful strings:
  27. ))
  28.  
  29. #(ds,buffer-mode.1,Fun)
  30. #(ds,Farglist,(SELF,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9))
  31. #(ds,Mstrings-delimiter,##(bc,91,d,a)##(bc,42,d,a)##(bc,93,d,a))
  32.  
  33. Repeatedly execute arg1 so long as it returns 'yes'.
  34.  
  35. #(ds,Fwhile-yes,(#(==,arg1,yes,(#(SELF,(arg1))))))
  36. #(mp,Fwhile-yes,#(Farglist))
  37.  
  38. Include a fairly brain-damaged version of Mbyte-compile.  It's just enough
  39. to get the strings loaded, but not enough to get the documentation loaded.
  40. So, we'll have to do a second pass.
  41.  
  42. #(ds,Mbyte-compile,(
  43. #(sp,[)
  44. #(dm,])
  45. #(an,arg1)
  46. #(rf,arg1)
  47. #(pm,3)
  48. #(sp,[)
  49. #(lp,##(bc,9,d,a)*;    ;.*##(bc,13,d,a)##(bc,10,d,a),,r)
  50. #(Fwhile-yes,(
  51.     #(l?,.,],0,1,(
  52.         #(sp,0)
  53.         #(dm,1)
  54.         yes
  55.     ))
  56. ))
  57. #(sp,[)
  58. #(Fwhile-yes,(
  59.     #(lp,##(bc,13,d,a)##(bc,10,d,a)Name:,,r)
  60.     #(l?,.,],,0,(
  61.         #(sp,0$>>>>>>)
  62.         #(ds,arglist,##(Farglist))
  63.         #(==,##(rm,^),Args:,(
  64.             #(sp,>)#(sm,1)#(sp,$<)
  65.             #(ds,arglist,SEL(F,)##(rm,1))
  66.         ))
  67.         #(lp,#(Mstrings-delimiter))
  68.         #(l?,0,],,1)
  69.         #(l?,1,],2)
  70.         #(sp,0)
  71.         #(an,arg1:##(rm,$))
  72.         #(ds,temp,##(rm,$))
  73.         #(mp,lib-list,,##(rm,>))
  74.         #(ds,lib-list,##(lib-list)##(rm,>))
  75.         #(ds,##(rm,>)modified)
  76.         #(sp,1)
  77.         #(ds,##(temp),##(rm,2))
  78.         #(mp,##(temp),#(arglist))
  79.         yes
  80.     ))
  81. ))
  82. #(pm)
  83. #(sp,[)
  84. #(dm,])
  85. #(sv,mb,0)
  86. ))
  87. #(mp,Mbyte-compile,#(Farglist))
  88.  
  89. #(ds,Fcompile-everything,(
  90.  
  91. #(ow,(First the code for EMACS.ED
  92. ))
  93.  
  94. #(ds,Ffilename,emacs)
  95. #(ds,files,##(ff,_*.min,/))
  96. #(Fwhile-yes,(
  97.     #(ds,file,##(fm,files,/))
  98.     #(==,##(file),,,(
  99.         #(Mbyte-compile,##(file))
  100.         yes
  101.     ))
  102. ))
  103.  
  104. #(ow,(Now the keys and user code.
  105. ))
  106.  
  107. #(Mbyte-compile,keys.min)
  108. #(Mbyte-compile,user.min)
  109.  
  110. #(ow,(Now the MINTED code.
  111. ))
  112.  
  113. #(Mbyte-compile,minted.min)
  114. #(Mbyte-compile,bytec.min)
  115.  
  116. #(Mbyte-compile,ABBREV.MIN)    #(Fsave-lib,A)#(es,#(ls,(,),A))    #(Fwrite-file,abbrev.edd)
  117. #(Mbyte-compile,C.MIN)        #(Fsave-lib,C)#(es,#(ls,(,),C))    #(Fwrite-file,c.edd)
  118. #(Mbyte-compile,DABBREV.MIN)
  119. #(Mbyte-compile,DIRED.MIN)    #(Fsave-lib,D)#(es,#(ls,(,),D))    #(Fwrite-file,dired.edd)
  120. #(Mbyte-compile,FORTRAN.MIN)    #(Fsave-lib,N)#(es,#(ls,(,),N))    #(Fwrite-file,fortran.edd)
  121. #(Mbyte-compile,GREP.MIN)    #(Fsave-lib,G)#(es,#(ls,(,),G))    #(Fwrite-file,grep.edd)
  122. #(Mbyte-compile,INFO.MIN)    #(Fsave-lib,I)#(es,#(ls,(,),I))    #(Fwrite-file,info.edd)
  123. #(Mbyte-compile,LISP.MIN)    #(Fsave-lib,L)#(es,#(ls,(,),L))    #(Fwrite-file,lisp.edd)
  124. #(Mbyte-compile,MOUSE.MIN)    #(Fsave-lib,P)#(es,#(ls,(,),P))    #(Fwrite-file,mouse)
  125. #(Mbyte-compile,RMAIL.MIN)    #(Fsave-lib,R)#(es,#(ls,(,),R))    #(Fwrite-file,rmail.edd)
  126. ))
  127.  
  128. #(Fcompile-everything)
  129.  
  130. #(ds,Fcompile-everything,
  131.     ##(Fcompile-everything)
  132.     (
  133.         #(es,Fcompile-everything)
  134.         #(ds,Fmodified)
  135.         #(F:save-all-libs)
  136.         #(Fsave-all-files)
  137.     )
  138. )
  139.  
  140. #(ow,(Write the files off to disk...
  141. ))
  142.  
  143. #(F:save-all-libs)
  144.  
  145.  
  146. #(ow,(
  147.  
  148. Press any key to exit, then run emacs again.
  149. ))
  150.  
  151. #(it,32767)#(hl)
  152.